unit uDxForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dx_vgcore, dx_scene, dx_vglayer, dx_objects, StdCtrls;

type
  TDxForm = class(TForm)
    vxScene1: TvxScene;
    Root1: TvxBackground;
    BitmapButton1: TvxBitmapButton;
    btn1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DxForm: TDxForm;

implementation

{$R *.dfm}

procedure TDxForm.FormCreate(Sender: TObject);
begin
  vxScene1.DesignTime := true;
  vxScene1.DesignPopupEnabled := False;
 // BitmapButton1.Locked := True;
end;

procedure TDxForm.btn1Click(Sender: TObject);
var
  newBtn: TvxBitmapButton;
begin
  newBtn := TvxBitmapButton.Create(nil);
  newBtn.Text := 'test1';
  newBtn.Width := 100;
  newBtn.Height := 100;
  Root1.AddObject(newBtn);
end;

end.
